﻿<Serializable()> _
Public Class Edescuento

#Region "           Atributos                       "
    Private _idDscto As Int32
    Private _descDscto As String
    Private _dsctoMin As Decimal
    Private _dsctoMax As Decimal
    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32
    Private _idProyecto As Int32 'JF
    Private _idTpoDescuento As Int32 'JF
    Private _descProyecto As String 'JF
    Private _descTpoDescuento As String 'JF
    Private _descuentos As String 'JF

    Private _filtro As String
#End Region

#Region "           Propiedades                     "
    Public Property idDscto() As Integer
        Get
            Return _idDscto
        End Get
        Set(ByVal value As Integer)
            _idDscto = value
        End Set
    End Property
    Public Property descDscto() As String
        Get
            Return _descDscto
        End Get
        Set(ByVal value As String)
            _descDscto = value
        End Set
    End Property
    Public Property dsctoMin() As Decimal
        Get
            Return _dsctoMin
        End Get
        Set(ByVal value As Decimal)
            _dsctoMin = value
        End Set
    End Property
    Public Property dsctoMax() As Decimal
        Get
            Return _dsctoMax
        End Get
        Set(ByVal value As Decimal)
            _dsctoMax = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
    Public Property idProyecto() As Int32 'JF
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property descProyecto() As String 'JF
        Get
            Return _descProyecto
        End Get
        Set(ByVal value As String)
            _descProyecto = value
        End Set
    End Property
    Public Property idTpoDescuento() As Int32 'JF
        Get
            Return _idTpoDescuento
        End Get
        Set(ByVal value As Int32)
            _idTpoDescuento = value
        End Set
    End Property
    Public Property descTpoDescuento() As String 'JF
        Get
            Return _descTpoDescuento
        End Get
        Set(ByVal value As String)
            _descTpoDescuento = value
        End Set
    End Property

    Public Property filtro() As String
        Get
            Return _filtro
        End Get
        Set(ByVal value As String)
            _filtro = value
        End Set
    End Property

    Public Property descuentos() As String
        Get
            Return _descuentos
        End Get
        Set(ByVal value As String)
            _descuentos = value
        End Set
    End Property
#End Region

    
#Region "           Propiedades Avanzadas           "

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idDscto As Int32, ByVal descDscto As String)
        Me.idDscto = idDscto
        Me.descDscto = descDscto
    End Sub
    Public Sub New(ByVal idDscto As Int32, ByVal descDscto As String, _
                   ByVal estado As String, ByVal idUsuario As Integer, ByVal idProyecto As Int32, ByVal idTpoDescuento As Int32) ', _
        'ByVal descProyecto As String, ByVal descTpoDescuento As String)
        Me.idDscto = idDscto
        Me.descDscto = descDscto
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        Me.idUsuario = idUsuario
        Me.idProyecto = idProyecto 'JF
        Me.idTpoDescuento = idTpoDescuento 'JF
        'Me.descProyecto = descProyecto 'JF
        'Me.descTpoDescuento = descTpoDescuento 'JF
    End Sub
    'Public Sub New(ByVal idDscto As Int32, ByVal descDscto As String, ByVal dsctoMin As Decimal, ByVal dsctoMax As Decimal, _
    '           ByVal estado As String, ByVal idUsuario As Integer)
    '    Me.idDscto = idDscto
    '    Me.descDscto = descDscto
    '    Me.dsctoMin = dsctoMin
    '    Me.dsctoMax = dsctoMax
    '    Me.estado = estado
    '    Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    '    Me.idUsuario = idUsuario
    'End Sub
    Public Sub New(ByVal idDscto As Int32, ByVal descDscto As String, ByVal dsctoMin As Decimal, ByVal dsctoMax As Decimal, _
                   ByVal estado As String, ByVal idUsuario As Integer, ByVal idProyecto As Int32, ByVal idTpoDescuento As Int32)
        Me.idDscto = idDscto
        Me.descDscto = descDscto
        Me.dsctoMin = dsctoMin
        Me.dsctoMax = dsctoMax
        Me.estado = estado
        'Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        Me.idUsuario = idUsuario
        Me.idProyecto = idProyecto 'JF
        Me.idTpoDescuento = idTpoDescuento 'JF
    End Sub
    Public Sub New(ByVal idDscto As Int32, ByVal descDscto As String, ByVal dsctoMin As Decimal, ByVal dsctoMax As Decimal, _
                   ByVal estado As String, ByVal idUsuario As Integer, ByVal idProyecto As Int32, ByVal idTpoDescuento As Int32, _
                   ByVal descProyecto As String, ByVal descTpoDescuento As String)
        Me.idDscto = idDscto
        Me.descDscto = descDscto
        Me.dsctoMin = dsctoMin
        Me.dsctoMax = dsctoMax
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        Me.idUsuario = idUsuario
        Me.idProyecto = idProyecto 'JF
        Me.idTpoDescuento = idTpoDescuento 'JF
        Me.descProyecto = descProyecto 'JF
        Me.descTpoDescuento = descTpoDescuento 'JF
    End Sub
    'Public Sub New(ByVal idProyecto As Int32, ByVal descProyecto As String)
    '    Me.idProyecto = idProyecto 'JF
    '    Me.descProyecto = descProyecto 'JF
    'End Sub
    Public Sub New(ByVal idTpoDescuento As Int32, ByVal descTpoDescuento As String, ByVal estado As String)
        Me.idTpoDescuento = idTpoDescuento 'JF
        Me.descTpoDescuento = descTpoDescuento 'JF
        Me.estado = estado 'JF
    End Sub
#End Region


End Class
